use CodonCheck;

use strict;
use warnings;
use Getopt::Long;

my $file = "";
my $table = 1;

my $result = GetOptions("file|f=s" => \$file, "table|t=i" => \$table);

if($file eq ""){
	print "Please specify a filename\n";
	exit;
}

my $c = new CodonCheck();
$c->Load($file);
$c->Check($table);
my @an = $c->GetAnalysis();
my $s = "";
foreach(@an){
	$s .= "$_,";
}

$s =~ s/,$//;
print $s;

print "\nRatio: " . $c->GetCorrect . "/" . $c->GetTotal . "\n";
